Ty = Sequence(Segment[(0, t, -0.1), (0, t, 0.1)], t, 1, 6)
Tx = Sequence(Segment[(t, 0, -0.1), (t, 0, 0.1)], t, 1, 6)
Tz = Sequence(Segment[(0, -0.1, t), (0, 0.1, t)], t, 1, 6)
w = Vector((0, 0, 0), (0, 0, 7))
Kx = Sequence(Text[n, (n, 0)], n, 1, 6)
Ky = Sequence(Text[n, (0, n)], n, 1, 6)
x_1 = 3 (slider from -5 to 6, step 1)
y_1 = 3 (slider from -5 to 6, step 1)
z_1 = 4 (slider from -5 to 6, step 1)
E: (0, 0, z_1)
A = (0, 0, 0)
B: (x_1, 0, 0)
C: (x_1, y_1, 0)
D: (0, y_1, 0)
a, F, G_1, H, faceABFE, faceBCGF, faceCDHG, faceADHE, faceEFGH, edgeAE, edgeBF, edgeCG, edgeDH, edgeEF, edgeFG, edgeGH, edgeEH = Prism(Polygon[A, B, C, D], E)
G, a_1, b, c, d = Polygon(A, B, C, D)
v = Vector(A, G_1)
u_1 = Vector(A, (7, 0, 0))
v_1 = Vector((0, -2, 0), (0, 7, 0))